home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / exedot.c < prev    next >
C/C++ Source or Header  |  1991-07-05  |  799b  |  27 lines
  1. /*****************************************************************************
  2.  
  3.     ExeDot()
  4.  
  5.     This function executes a . (dot) command.
  6.  
  7.     .    Equivalent to the number of characters between the
  8.         beginning of the buffer and the current position of the
  9.         pointer. Thus "." represents the current position of
  10.         the pointer.
  11.  
  12. *****************************************************************************/
  13.  
  14. #include "zport.h"        /* define portability identifiers */
  15. #include "tecoc.h"        /* define general identifiers */
  16. #include "defext.h"        /* define external global variables */
  17.  
  18. DEFAULT ExeDot()        /* execute a . (dot) command */
  19. {
  20. #if DEBUGGING
  21.     DBGFEN(1,"ExeDot",NULL);
  22.     sprintf(DbgSBf,"PushEx(%ld)", (LONG)(GapBeg-EBfBeg));
  23.     DbgFEx(1,DbgFNm,DbgSBf);
  24. #endif
  25.     return PushEx((LONG)(GapBeg-EBfBeg), OPERAND);
  26. }
  27.